﻿Imports TarjetaS
Partial Class Reportes_TarjetaSReporte
    Inherits System.Web.UI.Page
    Protected Sub Reportes_TarjetaSReporte_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim animal As String
        animal = CType(Session.Item("animal"), String)

        Dim reporteSanidad As New TarjetaS
        WebViewerSanidad.Report = reporteSanidad
        reporteSanidad.Parameters("parameter2").Value = animal
    End Sub
End Class
